﻿Public Class frmDoiMatKhau 

    Private Sub bntDoiMatKhau_Click(sender As System.Object, e As System.EventArgs) Handles bntDoiMatKhau.Click
        Dim users As New UsersDTO
        users.passwork = txtMKCu.Text
        If (UsersBUS.DangNhap(users) = False) Then
            MessageBox.Show("Mật Khẩu Cũ Không Đúng", "Báo Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            If (txtMKMoi.Text <> txtNhacMK.Text) Then
                MessageBox.Show("Nhắc Lại Mật Khẩu Không Đúng", "Báo Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                If (txtMKCu.Text = "" Or txtMKMoi.Text = "" Or txtNhacMK.Text = "") Then
                    MessageBox.Show("Bạn phải Điền Đầy Đủ Các Ô", "Báo Lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    users.passwork = txtNhacMK.Text
                    UsersBUS.UpdateMK(users)
                    MessageBox.Show("Đổi Mật Khẩu Thành Công", "Thông Báo", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                    Me.Close()
                End If
            End If
        End If
    End Sub

    Private Sub bntThoat_Click(sender As System.Object, e As System.EventArgs) Handles bntThoat.Click
        Me.Close()
    End Sub
End Class